DR1='n:'
F1='DLV_PHAR'
DO SIGNIT
IF NET_USE("&DR1&F1",.T.,'1',10)
   DO SIGNI
   INDE ON DELV_ORDER TO &DR1&F1
ENDIF
USE

F1='DLV_PHAR'
F11='DLVPO'
F12='DLVDO'
IF NET_USE("&DR1&F1",.T.,'1',10)
   DO SIGNI
   INDEX ON PO_NUMB_CL TO &DR1&F11
   DO SIGNI
   INDEX ON delv_order TO &DR1&F12
ENDIF
USE


F1='DLV_PHAR'
F11='DLVPHADO'
if net_use('&dr1&f1',.t.,'1',10)
   DO SIGNI
   INDEX ON COMP_CODE+delv_order TO &DR1&F11
endif
USE
